1 PRINT"[147]"
3 POKE53280,0:POKE53281,0:POKE646,7
4 POKE53272,22
5 MO=0:JR=1996:GE=1500:KO=500:EI=0:
6 D$="[205]ARKTPLATZ"
10 PRINT"
11 [153]"
12 PRINT"          [212][200][197] [201][195][197]-[195][210][197][193][205]-[205][193][206]
13 [153]"          -----------------
14 PRINT"
15 [153]"   VALINE (null)IMULATION VON (null)LIVER (null)OEPKE"
16 [153]"   TAB(USRTAB(USRTAB(USRTAB(USRTAB(USRTAB(USRTAB(USRTAB(USRTAB(USRTAB(USRTAB(USRTAB(USRTAB(USRTAB(USRTAB(USRTAB(USRTAB(
17 PRINT"
18 [153]"          (W)1996 BY (null)LEFT$VAL (null)(null)(null)(null)
19 PRINT"
20 [153]"
21 PRINT"
22 [153]"    STR$IESE (null)IMULATION IST 100 % (null)STR$
23 PRINT"    UND DARF VON JEDEN AN JEDEN
24 [153]"    WEITERKOPIERT WERDEN.
25 PRINT"
26 [153]"
27 PRINT"                         PRESS SPACE"
28 GETA$:IFA$=""THEN28
29 PRINT"[147]"
30 PRINT"
31 [153]"  (null)IE DER (null)AME SCHON SAGT, BIST DU
32 PRINT"  EIN [197]ISMANN UND VERSUCHST NUN
33 [153]"  EINEN RECHT HOHEN (null)MSATZ ZU MACHEN.
34 PRINT"  [196]U MUSST [197][201][211] IM [199]ROSSHANDEL KAUFEN,
35 [153]"  UND AN DEINEM KLEINEN (null)AGEN VER-
36 PRINT"  KAUFEN.
37 [153]"  ATNM VALNDE DES (null)ONATS BEKOMMST DU
38 PRINT"  EINE [205]ONATSABRECHNUNG, WO [205]IETE,
39 [153]"  VALSSEN, (null)LEIDUNG, (null)TEUERN ETC.
40 PRINT"  ABGEZOGEN WERDEN.
41 [153]"  ATNBER DER LENOMPI BLEIBT HART.
42 PRINT"  [193]UCH WENN DU MONATLICH ZU
43 [153]"  WENIG CHR$ELD HAST, ZIEHT ER DIR
44 PRINT"  DIE [203]OHLE AB.
45 [153]"
46 PRINT"                         T A S T E
47 [161]A$:[139]A$[178]""[167]47
48 [153]"LOAD"
49 [153]"
50 PRINT"  [198]ESTE MONATLICHE [193]USGABEN:
51 [153]"  TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
52 PRINT"  [205]IETE FUER [215]OHNUNG: 745,00 [196][205]
53 [153]"  (null)IETE FUER (null)AGEN  :  50,00 STR$(null)
54 PRINT"  [211]TEUERN           :  25,00 [196][205]
55 [153]"  (null)ERSICHERUNGEN    : 160,00 STR$(null)
56 PRINT"  [206]AHRUNG           : 400,00 [196][205]
57 [153]"  (null)LEIDUNG          : 100,00 STR$(null)
58 PRINT"  SONSTIGES         :  75,00 [196][205]
59 [153]"  ATNUTORATE          : 800,00 STR$(null)                           ":[153]     
60 [153]"  CHR$ESAMMT           :2355,00 STR$(null)
61 PRINT"                     [163][163][163][163][163][163][163][163][163][163]
62 [153]"  RIGHT$N DER (null)IETE IST VALNERGIE UND
63 PRINT"  [215]ASSER ENTHALTEN.
64 [153]"  STR$U HAST EINE 3-(null)AUM-(null)OHNUNG,
65 PRINT"  WEIL DU 1 [203]IND UND 1 [198]RAU HAST.
66 [153]"  (AUSSER, WENN DU EINE ASCRAU BIST!
67 PRINT"  DANN HAST DU HALT EIN [205]ANN.)
68 [153]"
69 PRINT"  [213]NTER [214]ERSICHERUNGEN SIND ALLE
70 [153]"  ZUSAMMENGEFASST...NUN DIE VALINNAHMEN."
71 [161]A$:[139]A$[178]""[167]71
72 [153]"LOAD"
73 [153]"
74 PRINT"  [205]ONATLICHE FESTE [197]INNAHMEN:
75 [153]"  TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
76 PRINT"
77 [153]"  (null)OHN VON ASCRAU/(null)ANN:  1100,00 STR$(null)
78 PRINT"
79 [153]"  (null)INDERGELD (1(null)IND):   260,00 STR$(null)
80 PRINT"
81 [153]"  (null)OHNGELD          :   200,00 STR$(null)
82 PRINT"
83 [153]"
84 PRINT"  [199]ESAMMT           :  1560,00 [196][205]"
85 PRINT"                       [163][163][163][163][163][163][163][163][163][163]
86 [153]"
87 PRINT"
88 [153]"  SOMIT KOMMST DU AUF MONATLICH
89 PRINT"  - 795,00 [196][205].
90 [153]"
91 PRINT"  [196]AS IST DAS [199]ELD, WAS DU MINDESTENS
92 [153]"  REINBRINGEN MUSST !
93 PRINT"  [193]NSONSTEN LANDEST DU UND DEINE
94 [153]"  ASCAMILIE UNTER DER PEEKRUECKE...
95 PRINT"
96 [153]"
97 PRINT"                      [212] A S T E
98 [161]A$:[139]A$[178]""[167]98
99 MO[178]MO[170]1
100 [153]"LOAD"
102 [139]MO[178]13[167]MO[178]0:JR[178]JR[170]1:[137]946
103 [153]"LOAD"
104 [153]"
105 PRINT" [205]ONAT  : ";MO
106 PRINT"
107 [153]" MID$AHR   : ";JR
108 [153]"
109 PRINT" [203]APITAL: ";GE
110 PRINT"
111 [153]" VALIS    : ";EI
112 [153]"
113 PRINT" [207]RT    : ";D$
114 PRINT"
115 [153]"
116 PRINT" -1- [197]IS IM [199]ROSSHANDEL KAUFEN
117 [153]"
118 PRINT" -2- [194]ANK ([199]UTHABEN:";KO;" [196][205])"
119 PRINT"
120 [153]" -3- (null)EBERSICHT"
121 [153]"
122 PRINT" -4- [214]ERKAUFSTAG => [205]ONATSENDE"
123 PRINT"
124 [161]A$:[139]A$[178]""[167]124
125 [139]A$[178]"1"[167][137]130
126 [139]A$[178]"2"[167][137]200
127 [139]A$[178]"3"[167][137]300
128 [139]A$[178]"4"[167][137]340
129 [137]100
130 [153]"LOAD"
131 [153]"
132 PRINT" [199]ROSSHANDEL:
133 [153]" TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
134 PRINT"
135 [153]" PEEKILLIGER GEHT'S (null)RIGHT$VAL(null)CHR$VAL(null)STR$(null)!
136 PRINT"
137 [153]" VALINE (null)UGEL VALRIGHT$(null) VOM BESTEN ZUM
138 PRINT" [211]POTTPREIS VON NUR 0.38 [196][205].
139 [153]"
140 PRINT" '[199]UTEN [212]AG, DER [200]ERR!
141 [153]"  WOMIT KANN ICH DIENEN ?'
142 PRINT"
143 [153]"
144 PRINT" -1- [201]CH HAETTE GERNE [197][201][211] GEKAUFT"
145 PRINT"
146 [153]" -2- (null)H VALHM...ICH BIN WOHL FALSCH"
147 [161]A$:[139]A$[178]""[167]147
148 [139]A$[178]"1"[167][137]151
149 [139]A$[178]"2"[167][137]100
150 [137]130
151 [153]"LOAD"
152 [153]"
153 PRINT"  [215]IEVIEL [197]IS MOECHTEN SIE ?"
154 PRINT"
155 [133]ZL
156 GE[178]GE[171](ZL[172]0.38):EI[178]EI[170]ZL
157 [153]"
158 PRINT"  [203]APITAT:";GE
159 PRINT"
160 [153]"  VALIS    :";EI
161 [153]"
162 PRINT"
163 [153]"
164 PRINT"
165 [153]"                             - TASTE - "
166 [161]A$:[139]A$[178]""[167]166
167 [153]"LOAD"
168 [153]" 'RIGHT$CH HOFFE, SIE SIND MIT UNSEREM
169 PRINT"
170 [153]" VALIS ZUFRIEDEN, UND MOECHTE SIE
171 PRINT"
172 [153]" NOCHMALS DARAUF HINWEISEN, DASS
173 PRINT"
174 [153]" MAN MONATLICH MINDESTENS 100
175 PRINT"
176 [153]" (null)ORTIONEN VALIS BENOETIGT.'
177 PRINT"
178 [153]"
179 PRINT" '[215]AEREN SIE SO GROSSZUEGIG, UND
180 [153]" WUERDEN DIESE (null)ERBEZETTEL AN
181 PRINT" ALLE [197]ISKAEUFER VERTEILEN ?'
182 [153]"
183 PRINT" (J/N)"
184 GETA$:IFA$=""THEN184
185 IFA$="J"THENGOTO190
186 IFA$="N"THENGOTO100
187 GOTO100
190 PRINT"[147]"
191 PRINT"
192 [153]" '(null)IELEN DANK! (null)IE ERHALTEN DAFUER
193 PRINT" 10 [208]ORTIONEN [197]IS [199][210][193][212][201][211] !'"
194 EI=EI+10
195 GETA$:IFA$=""THEN195
196 GOTO100
197 PRINT"
198 [153]"
199 PRINT"
200 [153]"LOAD"
201 [153]"
202 PRINT"  [193]UF DER [194]ANK...."
203 PRINT"  [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]
204 [153]"
205 PRINT"  [196]EIN [203]ONTO IST DEIN EIN UND ALLES."
206 PRINT"  [196]IE [202]AHRESABRECHNUNG ERFOLGT
207 [153]"  IMMER UEBERS (null)ONTO.
208 PRINT"  [214]ERSUCHE ALSO ZU VERHINDER, DASS
209 [153]"  DU EINEN NEGATIVEN PEEKETRAG AUF
210 PRINT"  DEIN [203]ONTO HAST.
211 [153]"  (null)AHLE AM BESTEN AUCH CHR$ELD EIN,
212 PRINT"  WENN DU ETWAS UEBRIG HAST !
213 [153]"  STR$U KANNST NIE (!) GENUG CHR$ELD
214 PRINT"  AUF DEIN [203]ONTO HABEN...
215 [153]"
216 PRINT"                         T A S T E"
217 GETA$:IFA$=""THEN217
218 PRINT"[147]"
219 PRINT"
220 [153]" (null)ERHINDERE UNBEDINGT EINEN
221 PRINT" NEGATIVEN [199]ELDBETRAG AUF DEINEM
222 [153]" (null)ONTO.
223 PRINT"
224 [153]"
225 PRINT" - 1 -  [199]ELD EINZAHLEN
226 [153]"
227 PRINT" - 2 -  [199]ELD ABHEBEN
228 [153]"
229 PRINT" - 3 -  [200]AUPTMENUE
230 [153]"
231 GETE$:IFE$=""THEN231
232 IFE$="1"THENGOTO240
233 IFE$="2"THENGOTO270
234 IFE$="3"THENGOTO100
235 GOTO218
236 PRINT"
237 [153]"
238 PRINT"
239 [153]"
240 PRINT"[147]"
241 PRINT"
242 [153]" (null)ONTOSTAND: ";KO
243 [153]"
244 PRINT" [203]APITAL   : ";GE
245 PRINT:PRINT:PRINT:PRINT:PRINT
246 PRINT"
247 [153]"  (null)IEVIEL GELD MOECHTEST DU EINZAHLEN ?
248 PRINT"
249 [133]TT
250 GE[178]GE[171]TT:KO[178]KO[170]TT
251 [153]"
252 PRINT" NEUER [203]ONTOSTAND: ";KO
253 PRINT"
254 [153]" NEUER (null)APITALST.: ";GE
255 [153]"
256 PRINT"
257 [153]" -1- WEITERE ATNRBEITEN AUF DER
258 PRINT"     [194]ANK ERLEDIGEN
259 [153]"
260 PRINT" -2- [200]AUPTMENUE
261 [153]"
262 GETE$:IFE$=""THEN262
263 IFE$="1"THENGOTO200
264 IFE$="2"THENGOTO100
265 GOTO100
266 PRINT"
267 [153]"
268 PRINT"
269 [153]"
270 PRINT"[147]"
271 PRINT"
272 [153]"  CHR$ELD VOM (null)ONTO ABHEBEN...
273 PRINT"  [163][183][184][163][183][184][163][183][184][163][183][184][163][183][184][163][183][184][163][183][184][163][183][184][163]
274 [153]"  (null)ONTOSTAND: ";KO
275 [153]"
276 PRINT"  [203]APITAL   : ";GE
277 PRINT:PRINT
278 PRINT"
279 [153]:[153]
280 [153]:[153]
281 [153]"  (null)IEVIEL CHR$ELD MOECHTEST DU VOM
282 PRINT"  [203]ONTO ABHEBEN ???
283 [153]"
284 INPUTTT
285 GE=GE+TT:KO=KO-TT
286 PRINT"[147]"
287 PRINT"
288 [153]"  (null)ONTOSTAND: ";KO
289 [153]"
290 PRINT"  [203]APITAL   : ";GE
291 PRINT"
292 [139]KO[179]0[167][137]296
293 [153]"                             - (null)ATN(null)(null)VAL-"
294 [161]A$:[139]A$[178]""[167]294
295 [137]100
296 [153]::[153]"LOAD":[153]" ATNLENLEFT$(null)(null)(null)CHR$! STR$(null)CLOSELEFT$ATN(null)(null)CLOSEVALRIGHT$(null)VAL(null)CLOSE(null)VALCHR$ATN(null)RIGHT$(null)VAL(null)
297 PRINT" [199][197][204][196][194][197][212][210][193][199][160][193][213][198][160][196][197][201][206][197][205][160][203][207][206][212][207] !!!!
298 [153]:[153]:[153]:[153]
299 [137]293
300 [153]"LOAD":[151]646,1
301 [153]"         ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^
302 PRINT"         [221][213][160][197][160][194][160][197][160][210][160][211][160][201][160][195][160][200][160][212][221]
303 [153]"         /TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP
304 POKE646,7
305 PRINT"
306 [153]"  (null)ONAT                    : ";MO
307 [153]"
308 PRINT"  [202]AHR                     : ";JR
309 PRINT"
310 [153]"  (null)APITAL                  : ";GE
311 [153]"
312 PRINT"  [203]ONTOSTAND               : ";KO
313 PRINT"
314 [153]"  VALIS                      : ";EI
315 [153]"
316 PRINT"  [207]RT                      : ";D$
317 PRINT"
318 [153]"  CHR$EWINN DES LETZTEN (null)ONATS: ";GW
319 [153]"
320 PRINT"  [197]INNAHMEN GESAMMT        : ";ZI
321 PRINT"
322 [161]A$:[139]A$[178]""[167]322
323 [153]"LOAD"
324 [153]"
325 PRINT"  [197]INKAUFSPREIS/[203]UGEL      :  0.38
326 [153]"
327 PRINT"  [214]ERKAUFSPREIS/[203]UGEL      : ";KG
328 PRINT"
329 [153]"
330 PRINT"  [198]ESTE MONATL.[193]USGABEN    :  2355.00
331 [153]"
332 PRINT"  [198]ESTE MONATL.[197]INNAHMEN   :  1560.00
333 [153]"
334 PRINT"
335 [153]"                           * (null)ASTE *
336 GETA$:IFA$=""THEN336
337 GOTO100
340 PRINT"[147]"
341 GW=0:KG=0:CJ=0
342 PRINT"[147]"
343 PRINT"
344 [153]"  (null)O WILLST DU DICH DIESEN (null)ONAT
345 PRINT"  HINSTELLEN ?"
346 PRINT"
347 [153]"
349 PRINT"  A[146]  [205]ARKTPLATZ
350 [153]"  BWAIT  STR$OMPLATZ
351 PRINT"  C[146]  [211]PORTSCHULE [207]ST
352 [153]"  DWAIT  LEN.(null)EISS CHR$YMNASIUM
353 PRINT"  E[146]  [193]M [203]ICHTURM
354 [153]"  FWAIT  (null)ARTIN-(null)UTHER-(null)EG
355 PRINT"  G[146]  [211]AN [205]ATRINO [211]TREET
356 [153]"  HWAIT  CHR$OETHEPLATZ
357 PRINT"  I[146]  [199]RUND-& [210]EALSCHULE
358 [153]"  JWAIT  (null)ALLORCA-(null)TRASSE
359 PRINT"  K[146]  [202].[215].[199]OETHE - [211]TR.
360 [153]"
361 GETA$:IFA$=""THEN361
362 IFA$="A"THEND$="[205]ARKTPLATZ ":GOTO374
363 IFA$="B"THEND$="[196]OMPLATZ   ":GOTO374
364 IFA$="C"THEND$="[211]PORTSCHULE [207]ST ":GOTO374
365 IFA$="D"THEND$="[195].[218]EISS [199]YMNASIUM ":GOTO374
366 IFA$="E"THEND$="[193]M [203]IRCHTURM    ":GOTO374
367 IFA$="F"THEND$="[205].-[204]UTHER [215]EG   ":GOTO374
368 IFA$="G"THEND$="[211]AN [205]ATRINO- [211]TR.":GOTO374
369 IFA$="H"THEND$="[199]OETHEPLATZ      ":GOTO374
370 IFA$="I"THEND$="[199]RUND-& [210]EALSCHULE":GOTO374
371 IFA$="J"THEND$="[205]ALLORCA-[211]TR.":GOTO374
372 IFA$="K"THEND$="[202].[215].[199]OETHE - [211]TR.":GOTO374
373 GOTO340
374 PRINT"[147]"
375 PRINT"
400 [153]"
401 PRINT"  [207]RT: ";D$
403 PRINT"
404 [153]"  VALIS: ";EI
405 [153]"
406 PRINT"
407 [153]"
408 PRINT"  [215]IE TEUER SOLL EINE [203]UGEL [197]IS BEI
409 [153]"  DIR SEIN ?":EI[178]EI[170]1
410 [153]"
411 INPUTKG
412 IFKG=>3THENPRINT"[200][193][204][211][193][194][211][195][200][206][197][201][196][197][210]!":GOTO406
413 PRINT"[147]"
414 PRINT"
415 O[178][181](40[172][187](1)[170]1)
416 [139]O[178]1[167]CJ[178] 21
417 [139]O[178]2[167]CJ[178] 42
418 [139]O[178]3[167]CJ[178]63
419 [139]O[178]4[167]CJ[178]84
420 [139]O[178]5[167]CJ[178]105
421 [139]O[178]6[167]CJ[178]156
422 [139]O[178]7[167]CJ[178]207
423 [139]O[178]8[167]CJ[178]311
424 [139]O[178]9[167]CJ[178]349
425 [139]O[178]10[167]CJ[178]378
426 [139]O[178]11[167]CJ[178]407
427 [139]O[178]12[167]CJ[178]411
428 [139]O[178]13[167]CJ[178]469
429 [139]O[178]14[167]CJ[178]513
430 [139]O[178]15[167]CJ[178]119
431 [139]O[178]16[167]CJ[178]150
432 [139]O[178]17[167]CJ[178]1001
433 [139]O[178]18 [167]CJ[178]2110
434 [139]O[178]19 [167]CJ[178]6811
435 [139]O[178]20 [167]CJ[178]1
436 [139]O[178]21[167]CJ[178] 20
437 [139]O[178]22[167]CJ[178] 40
438 [139]O[178]23[167]CJ[178]60
439 [139]O[178]24[167]CJ[178]80
440 [139]O[178]25[167]CJ[178]189
441 [139]O[178]26[167]CJ[178]150
442 [139]O[178]27[167]CJ[178]203
443 [139]O[178]28[167]CJ[178]304
444 [139]O[178]29[167]CJ[178]349
445 [139]O[178]30[167]CJ[178]378
446 [139]O[178]31[167]CJ[178]466
447 [139]O[178]32[167]CJ[178]411
448 [139]O[178]33[167]CJ[178]469
449 [139]O[178]34[167]CJ[178]512
450 [139]O[178]35[167]CJ[178]1809
451 [139]O[178]36[167]CJ[178]1065
452 [139]O[178]37[167]CJ[178]11043
453 [139]O[178]38 [167]CJ[178]12122
454 [139]O[178]39 [167]CJ[178]16809
455 [139]O[178]40 [167]CJ[178]100121
456 [139]CJ[177]EI[167][137]413
457 [153]"LOAD"
458 [153]"  ATNNZAHL VERKAUFTES VALIS: ";CJ
459 [153]"
460 GW=CJ*KG:EI=EI-CJ
520 PRINT"
521 [153]"  CHR$EWINN DURCH (null)ERKAUF : ";GW
523 [153]:[153]
524 [153]"  (null)APITAL  (ALT)       : ";GE
525 [153]"
526 PRINT"
527 [153]"                            (null)ATN(null)(null)VAL"
528 [161]A$:[139]A$[178]""[167]528
529 [153]"LOAD"
530 [153]"
531 PRINT" [193]USGABEN:"
532 PRINT" [163][163][163][163][163][163][163][163]
533 [153]" FESTE ATNUSGABEN: 2355,00 STR$(null)
534 PRINT"
535 [153]" (null)ONTOGELD     :  100,00 STR$(null)
536 PRINT"
537 [153]"
538 PRINT" [197]INNAHMEN:"
539 PRINT" [163][163][163][163][163][163][163][163][163]"
540 PRINT" FESTE [197]INNAHM.: 1560,00 [196][205]
541 [153]"
630 PRINT" [197]IS-[199]EWINN    : ";GW
631 PRINT"
632 [153]"
633 KO=KO+100:GE=GE-100
634 KO=KO-2355
635 KO=KO+1560
636 KO=KO+GW
637 PRINT"
638 [153]"                           - (null)ATN(null)(null)VAL -
639 GETA$:IFA$=""THEN639
640 PRINT"[147]"
641 PRINT"
730 [153]" (null)APITAL   :";GE
731 [153]"
732 PRINT" [203]ONTOSTAND:";KO
733 PRINT"
734 [153]" VALIS       :";EI
735 [153]"
736 ZI=ZI+GW
737 PRINT"
738 [153]"                          (null)CLOSEATNCLOSE(null)CLOSE(null)CLOSEVAL
739 GETA$:IFA$=""THEN739
740 PRINT"[147]"
830 PRINT"[147]"
831 PRINT"
832 O[178][181](6[172][187](1)[170]1)
833 [139]O[178]1[167]F$[178]"STR$EIN (null)IND WILL EIN LEN64 (null)PIEL - 59.90 STR$(null)":GE[178]GE[171]59.90
834 [139]O[178]2[167]F$[178]"ATNUTO-(null)EPERATURKOSTEN : 127.89 STR$(null)":GE[178]GE[171]127.89
835 [139]O[178]3 [167]F$[178]"ATNUTOUNFALL! (null)ELBSTBETEIDIGUNG 600 STR$(null)":GE[178]GE[171]600
836 [139]O[178]4[167]F$[178]"ATNUTO DEFEKT! (null)AXI-KOSTEN 48.70 STR$(null)":GE[178]GE[171]48.70
837 [139]O[178]5[167]F$[178]"STR$EIN (null)IND WILL EIN LEN64 PEEKUCH - 30 STR$(null)":GE[178]GE[171]30
838 [139]O[178]6[167]F$[178]"STR$EINE ASCRAU WILL EIN (null)LEID - 198.90 STR$(null)":GE[178]GE[171]198.90
842 O[178][181](6[172][187](1)[170]1)
843 [139]O[178]1[167]F$[178]"(null)OTTOGEWINN = 690,89 STR$(null)              ":GE[178]GE[170]690.89
844 [139]O[178]2[167]T$[178]"STR$U ERBST 100 STR$(null) (LACH!)":GE[178]GE[170]100.00
845 [139]O[178]3[167]T$[178]"PEEKEITRAGSRUECKZAHLUNG= 89.00 STR$(null)":GE[178]GE[170]89.00
846 [139]O[178] 4 [167]T$[178]"STR$U HILFST BEIM (null)MZUG -> 60.00 STR$(null)":GE[178]GE[170]60.00
847 [139]O[178] 5 [167]T$[178]"STR$EIN (null)IND VERKAUFT LEN64 (null)OFT! -> 30 STR$(null)":GE[178]GE[170]30
848 [139]O[178] 6 [167]T$[178]"STR$U FINDEST IM (null)ARK CHR$ELD....198.90 STR$(null)":GE[178]GE[170]198.90
930 [153]"LOAD"
931 [153]"
932 PRINT" SONSTIGE [193]USGABEN:"
933 PRINT" [163][183][163][183][163][183][163][183][163][183][163][183][163][183][163][183][163]
934 [153]F$
935 [153]"
936 PRINT" SONSTIGE [197]INNAHMEN:"
937 PRINT" [163][183][163][183][163][183][163][183][163][183][163][183][163][183][163][183][163][183]
938 [153]T$
939 [153]"
940 PRINT:PRINT:PRINT:PRINT
941 PRINT:PRINT:PRINT:PRINT
942 PRINT:PRINT:PRINT:PRINT
943 PRINT"                             * [212][193][211][212][197][160]*
944 [161]A$:[139]A$[178]""[167]944
945 [137]99
946 [153]"LOAD"
947 [153]"
948 PRINT" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
949 [153]" (null) MID$CLOSEATNCLOSELEFT$CLOSE(null)CLOSEVALCLOSE(null)CLOSEATNCLOSEPEEKCLOSE(null)CLOSEVALCLOSELENCLOSELEFT$CLOSE(null)CLOSE(null)CLOSE(null)CLOSECHR$CLOSE   (null)
950 PRINT" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
951 [153]"
953 PRINT" [197]INNAHMEN/GESAMMTES [202]AHR:";ZI
954 XX=ZI/15
955 PRINT"
956 [153]" ZU ZAHLENDE (null)TEUERN     :";XX
957 [153]"
958 KO=KO-XX
959 ZI=0:XX=0
960 PRINT"
961 [153]" (null)ONTOSTAND: ";KO
963 [153]"
964 PRINT" [203]APITAL:    ";GE
965 PRINT"
966 [153]"                          * (null)CLOSEATNCLOSE(null)CLOSE(null)CLOSEVAL *"
967 [161]A$:[139]A$[178]""[167]967
968 JT[178]GE[170]KO
969 [139]JT[178][177]1000000[167][137]971
970 [137]99
971 [153]"LOAD"
973 [153]"
974 PRINT"  [196]U HAST ES WIRKLICH GESCHAFFT,
975 [153]"  UND 1 (null)ILLIONEN STR$(null) ZUSAMMENGE-
976 PRINT"  SCHAEFFELT.
977 [153]"  STR$U BAUST DIR EIN LEFT$AUS, UND SETZT
978 PRINT"  DICH ZUR [210]UHE. [196]EIN [203]IND WIRD
979 [153]"  GROSS UND GEHT IN DIE (null)EHRE...
1000 PRINT"  ...ALS [197][201][211][205][193][206][206].....
1001 [153]"
1002 PRINT"
1003 [153]"                       VALCLOSE(null)CLOSESTR$CLOSEVAL
1004 GETA$:IFA$=""THEN1004
1005 PRINT"
1006 [153]" LENONTACT ME !
1007 PRINT" [163][163][163][163][163][163][163][163][163][163][163][163]
1008 [153]" (null)LIVER (null)OEPKE
1009 PRINT" [197].-[200]AECKEL-[211]TR.13
1010 [153]" 99097 VAL(null)ASC(null)(null)(null)/(null)HUERINGEN
1011 NEW